home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TEXLSDMO.PRG < prev    next >
Text File  |  1991-09-01  |  5KB  |  149 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TEXLSDMO.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. Clear Screen
  12. set Cursor off
  13.  
  14. set Color to b/b
  15. @ 01, 01, 24, 30 box space(09)
  16. set Color to W/W
  17. @ 01, 31, 12, 80 box space(09)
  18. set Color to R/R
  19. @ 13, 31, 24, 80 box space(09)
  20. set Color to W/N
  21. _frame = chr(218)+chr(196)+chr(191)+chr(179)+chr(217)+chr(196)+chr(192)+chr(179)+chr(32)
  22. @ 06, 20, 20, 58 box _frame
  23.  
  24. @ 10, 25 say 'Welcome to the TexAS Laser    '
  25. @ 11, 25 say 'Printer Library. You can add  '
  26. @ 12, 25 say '"Desktop Publishing" quality  '
  27. @ 13, 25 say 'to your reports and documents.'
  28. @ 14, 25 say 'The Library will give you     '
  29. @ 15, 25 say 'complete control over the     '
  30. @ 16, 25 say 'printer and your output.      '
  31. Inkey(10)
  32.  
  33. @ 08, 25 say 'Print the following examples  '
  34. @ 09, 25 say 'to see a few of the ways we   '
  35. @ 10, 25 say 'use the Library. Please look  '
  36. @ 11, 25 say 'at the demo code to see how   '
  37. @ 12, 25 say 'simple the functions are to   '
  38. @ 13, 25 say 'use. After using the Library, '
  39. @ 14, 25 say 'you will want all your users  '
  40. @ 15, 25 say 'to get laser printers.        '
  41. @ 16, 25 say '                              '
  42. @ 18, 27 say 'Press any Key to Continue'
  43. Inkey(0)
  44.  
  45. scroll(07, 21, 19, 57, 00)
  46. _print_port = ""
  47. @ 09, 25 say '  Please select Printer Port  '
  48. @ 11, 38 Prompt "LPT1"
  49. @ 12, 38 Prompt "LPT2"
  50. @ 13, 38 Prompt "LPT3"
  51. @ 14, 38 Prompt "COM1"
  52. @ 15, 38 Prompt "COM2"
  53.  
  54. menu to _print_port
  55.  
  56. @ 05, 10, 21, 68 box _frame
  57. @ 06, 29 say "Press <esc> to exit"
  58.  
  59. set message to 20 Center
  60.  
  61. do while lastkey() != 27
  62.    @ 10, 14 Prompt "Print Welcome to Demo"
  63.    @ 11, 14 Prompt "Print Invoice        "
  64.    @ 12, 14 Prompt "Print Labels         "
  65.    @ 13, 14 Prompt "Print Patterns       "
  66.    @ 14, 14 Prompt "Print Shading        "
  67.    @ 15, 14 Prompt "Print Graph          "
  68.    @ 16, 14 Prompt "Print Available Fonts"
  69.    @ 10, 41 Prompt "Print Bar Codes      " message "Print 3 of 9 Barcode"
  70.    @ 11, 41 Prompt "Print Scalable Fonts " message "Print on HP LaserJet III only"
  71.    @ 12, 41 Prompt "Print HCFA1500 Form  " message "Print on HP LaserJet III only"
  72.    @ 13, 41 Prompt "Print Calendar       "
  73.    @ 14, 41 Prompt "Print Envelope       " message "Print Envelope with Postnet Barcode"
  74.    @ 15, 41 Prompt "Print X Box          " message "Print Box with X"
  75.    @ 16, 41 Prompt "Print with Soft Font " message "Print Text with Downloaded Soft Font"
  76.  
  77.    menu to _choice
  78.  
  79.    do case
  80.    case _choice = 0
  81.       exit
  82.    case _choice = 1
  83.       txinit(_print_port)
  84.       txgraphic(0, 0, "initial.pcl", 1)
  85.       txmacexec(1)
  86.       txclear()
  87.    case _choice = 2
  88.       do txinvoic
  89.    case _choice = 3
  90.       do txlabels
  91.    case _choice = 4
  92.       do txpatter
  93.    case _choice = 5
  94.       do txshade
  95.    case _choice = 6
  96.       do txgraph
  97.    case _choice = 7
  98.       do txfonts
  99.    case _choice = 8
  100.       do txbarcod
  101.    case _choice = 9
  102.       do txscales
  103.    case _choice = 10
  104.       do txinsure
  105.    case _choice = 11
  106.       do txclndar
  107.    case _choice = 12
  108.       do txenvelp
  109.    case _choice = 13
  110.       txinit(_print_port)
  111.       txxbox(0500, 0500, 1000, 0300, 0003)
  112.       txcolprint(25, 10, .f., "Use this function sparingly as it uses a lot printer memory")
  113.       txcolprint(26, 10, .f., "This function was added because some of you requested a way")
  114.       txcolprint(27, 10, .f., "to draw diagonal lines in your boxes. For those of you with")
  115.       txcolprint(28, 10, .f., "an HP III or printer that uses the HP-GL/2 language, we are")
  116.       txcolprint(29, 10, .f., "working on vector graphics functions for those printers.")
  117.       txclear()
  118.    case _choice = 14
  119.       txinit(_print_port)
  120.       txlmargin(12)
  121.       txdlfont("helvet10.fnt", 1)
  122.       txsetpfont(1)
  123.       set console off
  124.  
  125.       TEXT to print
  126.  
  127.           Welcome to the Texas Associated Software Library for HP LaserJet Printers
  128.  
  129.           This library will give you "Desktop Publishing" quality letters, forms,
  130.           reports and documents. It will give your users a quality unexpected by
  131.           ordinary output. Since you can access any font cartridge or download any
  132.           soft font, you can offer your users letters, forms, reports and documents
  133.           they only got from other applications. This will open opportunities for
  134.           you to add documents to existing applications. The Library will give you
  135.           complete control over the printer. You will be able to layout your entire
  136.           page before printing. You have complete control over where you print down
  137.           to the smallest allowable coordinate.
  138.  
  139.       ENDTEXT
  140.  
  141.       set console on
  142.       txclear()
  143.    endcase
  144. enddo
  145.  
  146. set Cursor on
  147.  
  148. *: EOF: TEXLSDMO.PRG
  149.